home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / util / wb / tv-prog.lha / tvprogram / Install_TV < prev    next >
Encoding:
Text File  |  2000-07-20  |  7.6 KB  |  391 lines
  1. ; Skrypt instalacyjny dla programu TV (2000)
  2. ;
  3. ;    $VER: Install_TV v0.5 by ZATOR (15.07.2000)
  4. ;
  5. ; 
  6.  
  7.  
  8.  
  9. (set #ver_comm (/ (getversion "libs:commodities.library") 65536))
  10. (set #ver_icon (/ (getversion "icon.library") 65536))
  11. (set #ver_work (/ (getversion "workbench.library") 65536))
  12. (set #ver_dops (/ (getversion "libs:muimaster.library") 65536))
  13.  
  14. (set wybr
  15.     (askchoice
  16.         (prompt "Jëzyk/Jazyk/Language")
  17.         (help @askchoice-help)
  18.         (choices "POLSKI" "ÇEÎTINA")
  19.         (default 0)
  20.     )
  21. )
  22. (if (= wybr 0)
  23. (
  24. (set #witam "Witam w programie instalacyjnym programu\nTV\nDziëki temu skryptowi zainstalujesz oraz skonfigurujesz program")
  25. (set #info ("\nWersje (zainstalowanych u ciebie) wymaganych bibliotek:\n\nmuimaster.library - %ld [19^]\ncommodities.library - %ld\n icon.library - %ld\n\n" #ver_dops #ver_comm #ver_icon))
  26. (set #gdzie "Gdzie zainstalowaê program? \n\ (katalog zostanie stworzony)")
  27. (set #help_gdzie "Wybierasz miejsce, gdzie ma zostaê zainstalowany program TV")
  28. (set #kopiuj_wb "Gdzie skopiowaê program TV?")
  29. (set #help_wb "Wybierasz miejsce, gdzie ma zostaê skopiowany program")
  30. (set #kopiuj_wb1 "Gdzie skopiowaê dokumentacje?")
  31. (set #help_wb1 "Wybierasz miejsce, gdzie ma zostaê skopiowana dokumentacja")
  32. (set #kopiuj_wb2 "Gdzie skopiowaê skrypty arexxa?")
  33. (set #help_wb2 "Wybierasz miejsce, gdzie majâ zostaê skopiowane skrypty aRexx'a")
  34. (set #kopiuj_wb31 "Gdzie skopiowaê moduîy?")
  35. (set #help_wb31 "Wybierasz miejsce, gdzie majâ zostaê skopiowane moduîy\n\ niezbëdne do ôciagania programów telewizyjnych!")
  36. (set #import_prompt "Z jakiego modulu chcesz korzystac?")
  37. (set #kopiuj_wb3 "Gdzie skopiowac niezbëdne pliki?")
  38. (set #help_wb3 "wybierasz miejsce gdzie majâ zostaê skopiowane niezbëdne pliki")
  39. (set #kopiuj_modul "import/html-tm-online.tv")
  40. (set #dodaj "Czy mogë dodaê jednâ linie do user-startup?")
  41. (set #dodaj_help "Dodam linijke: Assign TVprog: xxx")
  42. (set #dodaje_tt "TOOLTYPE")
  43.  
  44. (set #info_jak "Jaki sposób instalacji wybierasz?")
  45. (set #info_jak_help "Wybierasz tutaj czy chcesz dokonaê peînej instalacji czy tylko zaktualizowaê program")
  46. (set #info_but0 "Instalacja")
  47. (set #info_but1 "Aktualizacja")
  48.  
  49.  
  50. ))
  51.  
  52. (if (= wybr 1)
  53. (
  54. (set #dodaj "Mohu pêidat jeden êádek do user-startup?")
  55. (set #dodaj_help "Pêidat êádek do user-startup  Assign TVprog: xxx ")
  56. (set #dodaje_tt "TOOLTYPE")
  57. (set #kopiuj_modul "import/html-cz-online.tv")
  58. (set #witam "Vitá Vás instalaçní program \nTV programu\nDíky tomuto skriptu si mûùete nainstalovat a nakonfigurovat program")
  59. (set #info ("\nVerze (uù nainstalovaných) poùadovaných knihoven:\n\nmuimaster.library - %ld [19^]\ncommodities.library - %ld\n icon.library - %ld\n\n" #ver_dops #ver_comm #ver_icon))
  60. (set #gdzie "Kam chcete nainstalovat program? \n\ (adresáê bude vytvoêen)")
  61. (set #help_gdzie "Volíte si místo, kde má byt nainstalován TV program")
  62. (set #kopiuj_wb "Kam zkopírovat TV program?")
  63. (set #help_wb "Volíte si místo, kam má být zkopírován program")
  64. (set #kopiuj_wb1 "Kam zkopírovat dokumentaci?")
  65. (set #help_wb1 "Volíte si místo, kam mají být zkopírované dokumentace")
  66. (set #kopiuj_wb2 "Kam zkopírovat arexxové skripty?")
  67. (set #help_wb2 "Volíte si místo, kam mají být zkopírované arexxové skripty")
  68. (set #import_prompt "Kam zkopírovat moduly?")
  69. (set #kopiuj_wb31 "Volíte si místo, kam mají být zkopírované moduly\n\potêebné pro stahovaní televizních programû!")
  70. (set #help_wb31 "Které moduly chcete pouùívat?")
  71. (set #kopiuj_wb3 "Kam zkopírovat poùadované soubory?")
  72. (set #help_wb3 "Volíte si místo, kam mají být zkopírované poùadované soubory")
  73.  
  74. (set #info_jak "Jaký si zvolíî zpûsob instalace?")
  75. (set #info_jak_help "Zvolíî si zde, zda chceî plnou instalaci nebo jenom aktualizovat program")
  76. (set #info_but0 "Instalace")
  77. (set #info_but1 "Aktualizace")
  78.  
  79.  
  80.  
  81. ))
  82.  
  83. (welcome #witam)
  84.  
  85. (message #info)
  86.  
  87. (set sposob
  88.     (askchoice
  89.         (prompt #info_jak)
  90.         (help #info_jak_help)
  91.         (choices #info_but0 #info_but1)
  92.         (default 0)
  93.     )
  94. )
  95. (if (= sposob 0)
  96. (
  97.  
  98. (if (=(exists "tv.ext" (noreq)) 1)
  99.  
  100.  
  101. (if (= wybr 0)
  102. (
  103. (set importk
  104.     (askchoice
  105.         (prompt #import_prompt)
  106.         (help @askchoice-help)
  107.         (choices "TeleMagazyn (112 programów, szybki transfer)" "WirtualnaPolska (114 programów, ôredni transfer)")
  108.         (default 0)
  109.     )
  110. )
  111.  
  112. (if (= importk 0)
  113. (
  114. (set #kopiuj_modul "import/html-tm-online.tv")
  115. ))
  116.  
  117. (if (= importk 1)
  118. (
  119. (set #kopiuj_modul "import/html-wp-online.tv")
  120. ))
  121. )
  122.  
  123. ))
  124.  
  125. (set #wyb1
  126.     (askdir
  127.         (prompt #gdzie)
  128.         (default "SYS:")
  129.         (help #help_gdzie)
  130.     )
  131. )
  132.  
  133. (complete 5)
  134.  
  135. (set #wyb2 (tackon #wyb1 "TV-prog"))
  136. (set #wyb3 (tackon #wyb2 "data"))
  137. (set #wyb4 (tackon #wyb2 "data_p"))
  138. (set #wyb5 (tackon #wyb2 "notatnik"))
  139. (set #wyb6 (tackon #wyb2 "Docs"))
  140. (set #wyb7 (tackon #wyb2 "import"))
  141. (set #wyb8 (tackon #wyb2 "export"))
  142. (set #wyb9 (tackon #wyb2 "rexx"))
  143. (set #wyb0 (tackon #wyb2 "catalogs"))
  144. (set #wya0 (tackon #wyb2 "plugins"))
  145.  
  146. (makedir #wya0)
  147. (makedir #wyb2 (infos))
  148. (makedir #wyb3)
  149. (makedir #wyb4)
  150. (makedir #wyb5)
  151. (makedir #wyb6 (infos))
  152. (makedir #wyb7)
  153. (makedir #wyb8)
  154. (makedir #wyb9)
  155. (makedir #wyb0)
  156.  
  157. (complete 10)
  158.  
  159. (set #wb_sel
  160. (copyfiles
  161.     (prompt #kopiuj_wb)
  162.     (source "TV")
  163.     (dest #wyb2)
  164.     (infos)
  165.     (help #help_wb)
  166. )
  167. )
  168.  
  169. (complete 20)
  170.  
  171. (set #wb_sel1
  172. (copyfiles
  173.     (prompt #kopiuj_wb1)
  174.     (source "Docs")
  175.     (dest #wyb6)
  176.     (all)
  177.     (help #help_wb1)
  178. )
  179. )
  180.  
  181. (complete 40)
  182.  
  183. (set #wb_sel2
  184. (copyfiles
  185.     (prompt #kopiuj_wb2)
  186.     (source "rexx")
  187.     (dest #wyb9)
  188.     (all)
  189.     (help #help_wb2)
  190. )
  191. )
  192.  
  193. (complete 55)
  194.  
  195. (set #wb_sel3
  196. (copyfiles
  197.     (prompt #kopiuj_wb31)
  198.     (source #kopiuj_modul)
  199.     (dest #wyb7)
  200.     (infos)
  201.     (help #help_wb31)
  202. )
  203. )
  204.  
  205. (complete 60)
  206.  
  207.  
  208. (complete 65)
  209.  
  210. (set #wb_sel5
  211. (copyfiles
  212.     (prompt #kopiuj_wb3)
  213.     (source "NUMERACJA.pref")
  214.     (dest #wyb2)
  215.     (infos)
  216.     (help #help_wb3)
  217. )
  218. )
  219.  
  220. (complete 70)
  221.  
  222. (set #wb_sel6
  223. (copyfiles
  224.     (prompt #kopiuj_wb3)
  225.     (source "ROK.pref")
  226.     (dest #wyb2)
  227.     (infos)
  228.     (help #help_wb3)
  229. )
  230. )
  231.  
  232. (complete 75)
  233.  
  234. (set #wb_sel7
  235. (copyfiles
  236.     (prompt #kopiuj_wb3)
  237.     (source "catalogs")
  238.     (dest #wyb0)
  239.     (all)
  240.     (help #help_wb3)
  241. )
  242. )
  243.  
  244. (complete 90)
  245.  
  246. (if (=(exists "tv.ext" (noreq)) 1)
  247.  
  248. (set #wb_sel8
  249. (copyfiles
  250.     (prompt #kopiuj_wb3)
  251.     (source "tv.ext")
  252.     (dest #wyb2)
  253.     (help #help_wb3)
  254. )
  255. )
  256.  
  257. )
  258.  
  259. (complete 95)
  260.  
  261. (set #komenda "Assign TVprog: ")
  262.  
  263. (set #komenda1 (cat #komenda #wyb2))
  264.  
  265. (startup "TV-PROGRAM"
  266.     (prompt #dodaj)
  267.     (command #komenda1)
  268.     (help #dodaj_help)
  269. )
  270.  
  271. (makeassign "TVprog" #wyb2)
  272.  
  273. (if (=(exists "libs:mui/betterbalance.mcc" (noreq)) 1)
  274.  
  275. (tooltype
  276.     (prompt #dodaje_tt)
  277.     (help #dodaje_tt)
  278.     (dest "tvprog:tv")
  279.     (settooltype "TV_BETTERBALANCE" "ON")
  280.  
  281. )
  282. (
  283. (tooltype
  284.     (prompt #dodaje_tt)
  285.     (help #dodaje_tt)
  286.     (dest "tvprog:tv")
  287.     (settooltype "TV_BETTERBALANCE" "OFF")
  288.  
  289. )
  290. )
  291.  
  292. )
  293.  
  294. (if (=(exists "libs:mui/tearoff.mcp" (noreq)) 1)
  295.  
  296. (tooltype
  297.     (prompt #dodaje_tt)
  298.     (help #dodaje_tt)
  299.     (dest "tvprog:tv")
  300.     (settooltype "TV_TEAROFF" "ON")
  301.  
  302. )
  303. (
  304. (tooltype
  305.     (prompt #dodaje_tt)
  306.     (help #dodaje_tt)
  307.     (dest "tvprog:tv")
  308.     (settooltype "TV_TEAROFF" "OFF")
  309.  
  310. )
  311. )
  312.  
  313. )
  314.  
  315. (complete 100)
  316. )
  317. )
  318.  
  319.  
  320. (if (= sposob 1)
  321. (
  322.  
  323. (set #wb_sel
  324. (copyfiles
  325.     (prompt #kopiuj_wb)
  326.     (source "TV")
  327.     (dest "Tvprog:")
  328.     (help #help_wb)
  329. )
  330. )
  331.  
  332. (set #wb_sel1
  333. (copyfiles
  334.     (prompt #kopiuj_wb1)
  335.     (source "Docs")
  336.     (dest "tvprog:docs/")
  337.     (all)
  338.     (help #help_wb1)
  339. )
  340. )
  341.  
  342.  
  343. (set #wb_sel7
  344. (copyfiles
  345.     (prompt #kopiuj_wb3)
  346.     (source "catalogs")
  347.     (dest "tvprog:catalogs/")
  348.     (all)
  349.     (help #help_wb3)
  350. )
  351. )
  352.  
  353. (if (=(exists "tvprog:import/html-tm-online.tv" (noreq)) 1)
  354. (
  355. (set #wb_sel
  356. (copyfiles
  357.     (prompt #kopiuj_wb3)
  358.     (source "import/html-tm-online.tv")
  359.     (dest "Tvprog:import/")
  360.     (help #help_wb3)
  361. )
  362. )
  363. ))
  364.  
  365. (if (=(exists "tvprog:import/html-wp-online.tv" (noreq)) 1)
  366. (
  367. (set #wb_sel
  368. (copyfiles
  369.     (prompt #kopiuj_wb3)
  370.     (source "import/html-wp-online.tv")
  371.     (dest "Tvprog:import/")
  372.     (help #help_wb3)
  373. )
  374. )
  375. ))
  376.  
  377. (if (=(exists "tvprog:import/html-cz-online.tv" (noreq)) 1)
  378. (
  379. (set #wb_sel
  380. (copyfiles
  381.     (prompt #kopiuj_wb3)
  382.     (source "import/html-cz-online.tv")
  383.     (dest "Tvprog:import/")
  384.     (help #help_wb3)
  385. )
  386. )
  387.  
  388. ))
  389.  
  390.  
  391. ))